home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / SNMA / examples / fixed.s < prev    next >
Encoding:
Text File  |  2001-09-08  |  1.5 KB  |  78 lines
  1. ;    snmaopt    p-
  2.     lea    (DT),a4
  3.     tst.l    (128,SP,D7.L)
  4.     move.l    (lab,a0.w*2),d0
  5.     move.l    (lab,a0.w*2),(lab,a0.w*2)
  6.     move.l    (lab,a0.w*2),(lab,a0,a0.w*2)
  7.     move.l    ($100000,a0.w*8),($100000,a0,a0*4)
  8.     move.l    (lab,pc,a0.w*2),(lab,a0.w*2)
  9.     move.l    d0,(lab,a0.w*2)
  10.     move.l    (lab,zpc,d0.w),a0
  11.     move.l    ([lab]),d0
  12.     move.l    d0,([lab])
  13.     movea.l    ([lab-DT,A4],8),A5
  14.     move.l    a5,([lab-DT,A4],8)
  15.     move.l    ([lab],a0,2),(lab,a0,a0)
  16.     move.l    ([$100000,a0,a0],$200000),([$100000,a0,a0],$800000)
  17.     btst    d1,([lab],a0,2)
  18.     btst    d1,([lab,a0],2)
  19.     btst    d1,([lab,a0],a0,2)
  20.     btst    d1,(lab,zpc,d0.w)
  21.     pmove.w    mmusr,(1,a0,d0)
  22.     pmove.q    crp,(a1)
  23.     bfffo    ([lab,d0.w],20){0:2},d0
  24.     lea    (lab,a0,a0),a1
  25.  
  26. ;some modes with OD as a label (ReSource hates these ;)
  27.  
  28.     move.l    ([lab,d0],lab2),d0
  29.     move.l    ([lab,pc,d0],lab2),d0
  30.     move.l    d0,([lab,d0],lab2)
  31.     move.l    d0,([d0.l],lab2)
  32.     move.l    ([lab,a0,a0],lab2),([lab,a0,a0],lab2)
  33.     move.l    ([lab,a0.w],lab2),([lab,a0,a0],lab2)
  34.     move.l    ([lab,pc,a0.w],lab2),([lab,a0,a0],lab2)
  35.     btst    d1,([lab],a0,lab2)
  36.     btst    d1,([lab,a0],lab2)
  37.     btst    d1,([lab,a0],a0,lab2)
  38.     bfffo    ([lab,d0.w],lab2){0:2},d0
  39.  
  40. ;    section    a,data
  41.  
  42. DT    nop
  43. lab    dc.b    'txt ''%s'''
  44. lab2    dc.b    "MM's"    
  45.  
  46. ;    end
  47.  
  48. * 68060 only stuff
  49.  
  50.     movec    pcr,d0
  51.     movec    buscr,a0
  52.     movec    sp,pcr
  53.     movec    d7,buscr
  54.     plpar    (a4)
  55.     plpaw    (sp)
  56.     lpstop    #4
  57.  
  58.     end
  59.  
  60. * these should be flagged off in 060 only mode
  61.  
  62.     mc68060        ;forces 'pure' 060 mode
  63.  
  64.     ptestr    (a0)
  65.     ptestw    (a4)
  66. .m    ftrapeq
  67.     fdbne    d0,.m
  68.     fsoge    d0
  69.     cas2    d0:d1,d2:d3,(a0):(a1)
  70.     chk2    (a0),d0
  71.     cmp2    (a0),d0
  72.     movep    d0,(12,a0)
  73.     fmovem    d0,-(sp)
  74.     fmovem    (sp)+,d4
  75.     mulu.l    d0,d0:d1
  76.     divu.l    d0,d0:d1
  77.  
  78.